<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% On Error Resume Next %> <% MenuId1 = Request.queryString("MenuId1") MenuId2 = Request.queryString("MenuId2") SelectedMenuId = Request.queryString("SelectedMenuId") query = "SELECT * FROM Menu WHERE Id = " & SelectedMenuId Set RSMenu = Conn.Execute(Query) SelectedMenuId = RSMenu("Id") MenuName = RSMenu("MenuName") MenuDesc = RSMenu("Description") MenuOrder = RSMenu("MenuOrder") Subject = RSMenu("Subject") IsLive = RSMenu("IsLive") %> <%= WebsiteTitle %>
 
| Main Admin menu | View Website
 
 
Admin Menu Editor
 
 
Menu Name :  
Description :  
Subject :  
Menu Order :  
Is Live :   >
 
 
 
 
<%= end_conna() %>